home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 25 / 025.d81 / dragon dungeon (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  29KB  |  811 lines
  1. 5 print"[147]":poke53280,0:poke53281,0
  2. 6 ifzz=0thenzz=1:load"joeplay",8,1
  3. 7 ifzz=1thenzz=2:load"drag.music",8,1
  4. 8 poke56325,60:mu=1:gosub10000
  5. 10 rem dungeon of the dragon
  6. 12 rem converted to c-64 by alan
  7. 20 q$=chr$(34)
  8. 30 print"":goto 110
  9. 40 print "you feel like it. [217]ou travel through"
  10. 42 print "time & space, writing about the things"
  11. 43 print "you see. [193]ll of the book critics"
  12. 50 print "criticize your books."
  13. 51 print"  [212]hey all say that you are too un-"
  14. 52 print"realistic. [207]h, well, you can't win at"
  15. 53 print"[197][214][197][210][217][212][200][201][206][199]":print"  [217]ou [196][201][196] win at this, however, and got";
  16. 54 printse;"points out of 100 possible. [206]ot bad!"
  17. 55 a$=""
  18. 60 print"[208]lay again ([217]/[206])?";:poke198,0:wait198,1
  19. 65 a$=""
  20. 66 geta$
  21. 70 ifa$="y"then 110
  22. 80 ifa$="n"then 5400
  23. 90 goto 65
  24. 100 rem
  25. 110 rem 
  26. 120 rem 
  27. 130 rem 
  28. 140 rem 
  29. 150 rem for jean
  30. 160 rem 
  31. 170 rem 
  32. 180 rem 
  33. 190 rem ***********************
  34. 200 rem *dungeon of the dragon*
  35. 210 rem *    by:     *
  36. 220 rem *    steve  shelton   *
  37. 230 rem  *********************** 
  38. 240 rem 
  39. 250 rem  {$7c}   -----------
  40. 260 rem  {$7c}   !     !   {$7c}
  41. 270 rem  {$7c}   !     !   {$7c}
  42. 280 rem  {$7c}   !     !   {$7c}
  43. 290 rem  -----------   {$7c}
  44. 300 rem      !     !
  45. 310 rem      !     !
  46. 320 rem      !     !
  47. 330 rem      -------
  48. 340 rem 
  49. 350 rem 
  50. 360 rem  my trade mark
  51. 370 rem 
  52. 380 rem  game (c) may-june, 1985
  53. 390 rem 
  54. 400 rem  my address:
  55. 410 rem  box 177
  56. 420 rem  dighton, ks. 67839
  57. 430 rem  phone:(316)-397-5523
  58. 440 rem 
  59. 490 goto 980
  60. 500 print"[147]"
  61. 510 lc = 1
  62. 520 goto 4610
  63. 530 ud = 0
  64. 535 gosub10000
  65. 540 print
  66. 541 c$="":input "===>";c$
  67. 542 c9$=c$
  68. 543 ifc$=""thenprint"[145]";:goto541
  69. 545 c$=left$(c$,4)
  70. 550 cm = 0: print 
  71. 551 if c$="sile"orc$="off"thenc$="hush"
  72. 552 ifc$="hush"orc$="quie"thenmu=0:gosub11000:print"[204]et there be silence!"
  73. 554 ifc$="hush"orc$="quie"thenprint"[194]oy, you don't mess around!!":goto530
  74. 555 ifc$="play"thenc$="musi"
  75. 556 ifc$="musi"thenmu=1:gosub10000:print"[204]et me en-ter-tain you...":goto540
  76. 560 if  left$(c$,3)= "use" then cm = 2
  77. 570 if  c$ = "scor" then cm = 11
  78. 580 if  c$ = "l" then cm = 7
  79. 590 if  c$ = "s" or c$="sout"thencm = 3
  80. 610 if  c$ = "n" or c$="nort"thencm = 4
  81. 620 if  c$ = "e" or c$="east"thencm = 5
  82. 630 if  c$ = "w" or c$="west"thencm = 6
  83. 640 if  c$ = "look" then cm = 7
  84. 650 if left$(c$,3)= "get" then cm = 9
  85. 660 if  c$ = "quit" then  gosub 5320
  86. 670 if  c9$ = "drop dead" then  print "[207]kay.": goto 5090
  87. 680 if  c$ = "bull" then  print "[205]ooo...": goto 530
  88. 690 if cm <  > 2 then  goto 890
  89. 695 gosub4810
  90. 700 print :u$="":input "[213]se what item ";u$
  91. 705 u9$=u$
  92. 710 ud = 0: print:u$=left$(u$,5)
  93. 720 if  u$ = "breat" oru$="fresh" then ud = 1
  94. 730 if u$="mouth"oru$="wash"thenud=2
  95. 740 ifleft$(u$,3)="gas"oru$="mask"thenud=3
  96. 743 if ud=3 and ga=3 then print"[217]ou're already wearing that!":ud=-1
  97. 745 ifud=3thenprint"[200]ey, you look very cute!!":ga=3:cm=-2:print:return
  98. 750 ifu$="sword"thenud=4
  99. 760 ifu$="laser"oru$="gun"thenud=5
  100. 770 ifu$="flash"oru$= "light" then ud = 6
  101. 780 ifu$="paper"oru$="piece"thenud=7
  102. 782 ifu$="clue"oru$="hint"then ud = 7
  103. 790 if u$= "torch" oru$= "fire" then ud = 8
  104. 800 if u$= "cork" then ud = 9
  105. 810 ifleft$(u9$,13)="dragon bottle"thenud=10
  106. 811 ifleft$(u9$,24)="essence 'd dragon breath"thenud=10
  107. 812 ifleft$ (u9$,20) = "dragon breath bottle" then ud = 10
  108. 813 ifleft$(u9$,13)="dragon breath"thenud=10
  109. 820 if ud = 0 then print "[215]hat?": goto 530
  110. 830 goto 4480
  111. 840 ifud=2thenri=2:ifol<>1thenprint"[201]t has that minty, not mediciny taste."
  112. 841 ifud=2 andol<>1thenprint"[196]id you have bad breath?":cm=-1
  113. 850 ifud=1thenps=2:ifol<>1thenprint"[201]t tastes mediciny, but it works."
  114. 851 ifud=1 and ol<>1 thenprint"[196]id you have bad breath?":cm=-1
  115. 860 if ud = 7 then 5300
  116. 870 if ud = 10 then print "[212]he noxious fumes overtake you and you"
  117. 872 ifud=10then print "choke to death on them.": goto 5030
  118. 880 af=0:if db > 0 and ud = 9 thenaf=1
  119. 881 ifaf=1then print "[217]ou uncork the dragon bottle and the"
  120. 882 ifaf=1then print "fumes kill you.": goto 5030
  121. 890 if c$= "i"orleft$(c$,3)="inv"then gosub4810:goto540
  122. 900 if c$ = "answ" then cm = 8
  123. 910 if c$ = "" then goto 540
  124. 920 ifc$="help"thenprint "[212]he commands will have to do!": goto 4940
  125. 930 if c$ = "rais" then cm = 10: goto 5100
  126. 940 if left$ (c$,3) = "com" then goto 4940
  127. 950 if cm = 0 and su = 3 then goto 4940
  128. 960 if cm = 0 then print "[211]ay [215][200][193][212]?!?!?!?":su = su + 1: goto 530
  129. 970 return 
  130. 980 print"[147]":input "[215]ould you like instructions";a$
  131. 990 if left$ (a$,1) = "y" then 5120
  132. 1000 if left$ (a$,1) = "n" then 1020
  133. 1010 goto 980
  134. 1020 rem * location #1
  135. 1030 ms = 1:ho = 1
  136. 1040 print "[217]ou are at the entrance of the dungeon.
  137. 1042 [153]"right$t is humid and mucky smelling in here."
  138. 1050 [139] az [177] 0 [167] 1090
  139. 1060 [153] "left$ow you got here, you do not know. (NULL)ne"
  140. 1062 [153] "minute you're standing in a cave near"
  141. 1064 [153] "the tip of the peekermuda (NULL)riangle, and"
  142. 1066 [153] "suddenly you're here. atns far as you can"
  143. 1070 [153] "tell, there is no exit. (NULL)ou have,"
  144. 1072 [153] "however, seen a strange looking "
  145. 1074 [153] "creature with four heads get killed by"
  146. 1076 [153] "a man in very strange clothes, but not"
  147. 1080 [153] "before he himself was mortally wounded."
  148. 1082 [153] "(NULL)ou now have the man's sword, and a lit"
  149. 1084 [153] "flashlight.":az [178] az [170] 1
  150. 1090 [153] "(NULL)here is a dead creature here, along ": [153] "with a dead man."
  151. 1100 [153] : [153] "(NULL)here is an exit to the east."
  152. 1110 [141] 530
  153. 1120 [139] cm [178] 2 [167] [153] "(NULL)o effect."
  154. 1130 [139]cm[178]3[176]cm[178]4[176]cm[178]6[167][153]"(NULL)ou ran into the wall! peekoy, does your"
  155. 1131 [139]cm[178]3[176]cm[178]4[176]cm[178]6[167][153]"nose ever hurt!!"
  156. 1140 [139] cm [178] 5 [167] lc [178] 2: [137] 520
  157. 1150 [139] cm [178] 7 [167] [137] 1020
  158. 1160 [139] cm [178] 11 [167] [153] "(NULL)len(NULL)(NULL)val: ";se;" (NULL)(NULL)(NULL) (NULL)asc 100 (NULL)(NULL)(NULL)(NULL)right$peek(NULL)val."
  159. 1170 [139] cm [178] 9 [167] [153] "(NULL)othing here."
  160. 1180 [139] cm [178] 10 [167] [153] "peekig deal. (NULL)ou should see how easy a "
  161. 1182 [139]cm[178]10[167][153] "dragon could do that!!"
  162. 1190 [137] 1110
  163. 1200 [143] * location #2
  164. 1210 [153] "right$t's an east-west hallway. (NULL)he ground"
  165. 1212 [153] "is slightly dusty. (NULL)here is a faint     light to the east."
  166. 1230 af[178]0:[139] cm [178] 10 [167]af[178]1:[153]"(NULL)eah!! (NULL)he"
  167. 1232 [139]af[178]1[167][153]"crowd cheers! left$e actually    got it above his head!!"
  168. 1240 [141] 530
  169. 1250 [139] cm [178] 2 [167]  [153] "(NULL)o effect."
  170. 1260 [139] cm [178] 3 [167]  [153] "str$o you see a door there? (NULL)f course not!"
  171. 1262 [139]cm[178]3[167] [153] "(NULL)ow, boys and girls, what we have here"
  172. 1264 [139]cm[178]3[167] [153] "is a guy with a flat nose!"
  173. 1270 [139] cm [178] 4 [167]  [153] "(NULL)ou cannot go that direction."
  174. 1280 [139] cm [178] 5 [167] lc [178] 3: [137] 4610
  175. 1290 [139] cm [178] 6 [167] lc [178] 1: [137] 520
  176. 1300 [139] cm [178] 11 [167]  [153] "(NULL)len(NULL)(NULL)val: ";se;" (NULL)(NULL)(NULL) (NULL)asc 100 (NULL)(NULL)(NULL)(NULL)right$peek(NULL)val."
  177. 1310 [139] cm [178] 5 [167] lc [178] 11: [137] 4610
  178. 1320 [139] cm [178] 5 [176] cm [178] 3 [167] 520
  179. 1330 [139] cm [178] 7 [167]  [137] 1200
  180. 1340 [139] cm [178] 9 [167]  [153] "(NULL)here's nothing here! (NULL)ou couldn't "
  181. 1342 [139]cm[178]9[167] [153] "even grasp for straws in this room!"
  182. 1350 [137] 1240
  183. 1360 [139] lc [178] 20 [167]  [137] 4450
  184. 1370 [143] * location #3
  185. 1380 [153] "(NULL)his room is strangely shaped, as if it"
  186. 1382 [153] "was a carved-out cave. (NULL)he walls glow"
  187. 1384 [153] "with a soft, red light. (NULL)here is a"
  188. 1386 [153] "tapestry with a lenhinese str$ragon on it on"
  189. 1390 [153] "one wall. (NULL)here are exits to the (NULL)outh, valast and (NULL)est."
  190. 1400 [139] ri [179] 1 [167]  [153] "(NULL)here is a jar of mouthwash by the      tapestry."
  191. 1420 [141] 530
  192. 1430 [139] cm [178] 2 [167]  [153] "(NULL)o effect."
  193. 1440 [139] cm [178] 3 [167] lc [178] 4: [137] 520
  194. 1450 [139] cm [178] 5 [167] lc [178] 7: [137] 4610
  195. 1460 [139] cm [178] 4 [167]  [153] "(NULL)ou can't go that direction."
  196. 1470 [139] cm [178] 6 [167] lc [178] 2: [137] 4610
  197. 1480 [139] cm